home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok09 / m2test / arraybool.mod < prev    next >
Text File  |  1993-11-04  |  746b  |  27 lines
  1. (* :Program.   ARRAYBOOL
  2.    :Autor.     Fridtjof Siebert
  3.    :Contents.  Demoprogramm für Fehler bei ARRAY BOOLEAN OF.
  4. *)
  5.  
  6. MODULE ARRAYBOOL;
  7.  
  8. FROM InOut IMPORT WriteString, WriteLn, WriteInt;
  9.  
  10. VAR
  11.   test: ARRAY BOOLEAN OF INTEGER;
  12.   t: BOOLEAN;
  13.  
  14.  
  15. BEGIN
  16.   WriteString("test[TRUE] := 1;");
  17.   test[TRUE] := 1;
  18.   WriteString(" done."); WriteLn;
  19.   WriteString("test[FALSE] := 2;");
  20.   test[FALSE] := 2;
  21.   WriteString(" done."); WriteLn;
  22.   WriteString("test[TRUE] = "); WriteInt(test[TRUE],10); WriteLn;
  23.   WriteString("test[FALSE] = "); WriteInt(test[FALSE],10); WriteLn;
  24.   t := FALSE; WriteString("t := FALSE; test[t] = "); WriteInt(test[t],10); WriteLn;
  25.   t := TRUE;  WriteString("t := TRUE; test[t] = "); WriteInt(test[t],10); WriteLn;
  26. END ARRAYBOOL.
  27.